home *** CD-ROM | disk | FTP | other *** search
/ Programmer Power Tools / Programmer Power Tools.iso / ada / ed.ada < prev    next >
Text File  |  1988-03-25  |  3KB  |  62 lines
  1. L--T+-T--T--T-+T--T2-T--T--T-3T---+----4----+----5----+----6----+----7----+---
  2. ( This file will customize the Shareware word  processor  PC-Write (tm)  by )
  3. ( Quicksoft (tm)  for editing Ada source code whenever you edit a file with )
  4. ( the extension ".ADA".   Each of the keys  Alt-A through Alt-Z  is given a )
  5. ( special meaning, as are five Shift-Alt key combinations.  Alt-B ("begin") )
  6. ( and Alt-T ("then")  also  position  the  cursor appropriately on the next )
  7. ( line after typing the word.                       ver. 1.00   25-MAR-1988 )
  8. (                                                                           )
  9. ( Written by  Software  Innovations  Technology,  1083  Mandarin  Drive NE, )
  10. ( Palm Bay, Florida  32905-4706   (407) 951-0233.   You may freely copy and )
  11. ( distribute this file.                                                     )
  12. (                                                                           )
  13. ( Send for a copy of our Shareware  ADA-TUTR  (Ada Tutor)  program!  Try it )
  14. ( free, and register your copy only if you use it.  Unregistered users send )
  15. ( $10,  or  $5 and a blank, formatted, 5 1/4"  DSDD diskette and a stamped, )
  16. ( addressed diskette mailer.  ADA-TUTR works on monochrome as well as color )
  17. ( monitors, and requires a hard disk or a 3 1/2" diskette.  Ada source code )
  18. ( is included, so it will also run on mainframes and other computers.  This )
  19. ( price is only for copying, and does not include registration.  Multi-User )
  20. ( Licenses for ADA-TUTR are available.                                      )
  21. (                                                                           )
  22. ( Other than being a registered  user  of  PC-Write,  we have no connection )
  23. ( with Quicksoft.   However, we'll send you a copy of the latest version of )
  24. ( PC-Write  for $10,  or two blank, formatted, 5 1/4"  DSDD diskettes and a )
  25. ( stamped, addressed diskette mailer.   This price is only for copying, and )
  26. ( does not include registration with Quicksoft.                             )
  27. (                                                                           )
  28. 400:346,346  (Turn word wrap off.)
  29. 286:"array("
  30. 304:"begin",265,270
  31. 302:"CHARACTER"
  32. 288:"delta "
  33. 274:"end"
  34. 289:"function "
  35. 508:"package FLT_IO is new FLOAT_IO(FLOAT); use FLT_IO;",264   (Shift-Alt-F)
  36. 290:"GET_LINE("
  37. 291:"h"
  38. 279:"INTEGER"
  39. 511:"package INT_IO is new INTEGER_IO(INTEGER); use INT_IO;",264  (Sft-Alt-I)
  40. 292:"j"
  41. 293:"k"
  42. 294:"loop"
  43. 306:"mod "
  44. 305:"NEW_LINE"
  45. 280:"others =>"
  46. 281:"procedure "
  47. 518:"package "   (Shift-Alt-P)
  48. 272:"q"
  49. 275:"return"
  50. 520:"record"   (Shift-Alt-R)
  51. 287:"STRING"
  52. 276:"then",265,270
  53. 278:"use "
  54. 303:"'VAL"
  55. 273:"with "
  56. 525:"with TEXT_IO; use TEXT_IO;",264   (Shift-Alt-W)
  57. 301:"xor "
  58. 277:"YEAR("
  59. 300:"z"
  60. D:566,'DA-MON-YEAR'  (Control-D inserts the date.  PC-Write ver. 2.7 or later.)
  61.  
  62.